home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
rxapfd.zip
/
TP2.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1994-02-01
|
600b
|
24 lines
/* rexx */
if rxfuncquery('rxappc') then
call rxfuncadd 'rxappc','rxappcfd','rxappcfd'
appcrc = rxappc('receive_allocate','TP2','inf.')
tpid = inf.1
convid = inf.2
appcrc = rxappc('receive_and_wait','m',tpid,convid,'y',500,'inf.')
do while appcrc = 0 & inf.1 <> 'S'
if inf.2 = 'D' | inf.2 = 'DC' then
say '>'inf.5'<'
if inf.1 = 'S' then
leave
appcrc = rxappc('receive_and_wait','m',tpid,convid,'y',500,'inf.')
end
appcrc = rxappc('send_data','m',tpid,convid,'n','Some response data','inf.')
appcrc = rxappc('deallocate','m',tpid,convid,'f','inf')
exit